home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Superbase pro 4 v1.0 disk2.adf / Trading / STKRTE.SBP < prev    next >
Text File  |  1991-03-21  |  1KB  |  66 lines
  1. SBP
  2.  ÿ½   STKRTE
  3.  ÿ½   Traded Stocks report
  4.  ÿ½   Last updated Jan 21, 90
  5.  
  6.  ÿ³ÿ_ÿwrerror
  7.  hd1$ÿ"Traded Stocks report at "ÿÿ(ÿQ,"mmm dd,yy")
  8.  hd12$ÿ"Ref: STKRTE"
  9.  
  10. m1: 
  11.  ÿÁ
  12.  ÿ}ÿÁ
  13.  ÿ{@1;"Number of traded stocks: ";&15ÿ(ÿX,"99999.")
  14.  ÿ{
  15.  ÿ’ÿÁ
  16.  
  17.  ÿŸ
  18.  ÿ{@1;hd1$;@65;hd12$
  19.  ÿ{@31;"------ Price Data -----"
  20.  ÿ{@1;"Mkt  Sector   Symbol    Units    High     Low  Latest  Cap (m) Earnings P/E"
  21.  ÿ{@1;"---- -------- --------- ----- ------- ------- ------- -------- -------- ---"
  22.  ÿ’ÿŸ
  23.  
  24.  ÿžExchange.STOCKS
  25.  ÿ€ÿžExchange.STOCKS
  26.  ÿ{@1;&16Exchange.STOCKS
  27.  ÿ’ÿž
  28.  
  29.  ÿ}ÿžExchange.STOCKS
  30.  ÿ{
  31.  ÿ’ÿž
  32.  
  33.  ÿÉ@1;&4Market.STOCKS;@6;&8Sector.STOCKS;@15;&9Symbol.STOCKS;@25;&5Units.CURRENCY;@31;&7Year_High.STOCKS;
  34.  @39;&7Year_Low.STOCKS;@47;&7Price Middle.STOCKS;@55;&8Cap Million.STOCKS;&9Last_Earnings.STOCKS;&4PE ratio.STOCKS
  35.  ÿÐCurrency.STOCKSÿCurrency.CURRENCY
  36.  ÿµExchange.STOCKS
  37.  
  38. m2: 
  39.  ÿ¡p$ÿ"d"ÿp
  40. ÿÊÿËss14$
  41. ÿÏÿ¥ÿÿß
  42.  ÿ’ÿ¡
  43.  
  44. repeat: 
  45.  ÿÂms3$,"",135,a%
  46.  ÿ¡a%ÿ0ÿpÿwrexit
  47.  ÿ¡p$ÿ"p"ÿpÿ¹;
  48.  ÿwm1
  49.  
  50. rexit: 
  51.  ÿ„"menu"
  52.  
  53. rerror:ÿ½ On error
  54.  res%ÿ0
  55.  ÿ¡ÿ&ÿ11ÿp
  56. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  57.  ÿ^ÿ¡ÿ&ÿ27ÿp
  58. ÿÂms11$,ms12$,100,a%:res%ÿ2
  59.  ÿ^
  60. ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
  61.  ÿ’ÿ¡
  62.  ÿ¡res%ÿ1ÿpÿyrepeat 
  63.  ÿ¡res%ÿ2ÿpÿyrexit
  64.  ÿ
  65.  
  66.